Monster Media 1994 #2/Monster Media No. 2 (Monster Media)(1994).ISO/finance/cs4_b.zip/GROUP1.STY

Text File | 1994-05-15 | 8KB | 190 lines

@MA11 @MD02 @MC+
> @VS99 := "        -0-"
@IF @RD = "SCREEN" THEN
@MH3
@MT+ @HN------------------------------------------------------------           @MT- 
@HC------             @HS------   through   @HE------                    @HA----- 
────────────────────────────────────────────────────────────────────────────── 
@EL
> @VN82 := {1}
@PA ;
@IF {@RB} = {1} THEN
@PD ;
@EI
@EI

@LA12345
@IF {@VN82} = {1} THEN
> @VN82 := {0}
> @VN50 := {4}
@MI{@RI} @HC------  @MT+ @HN------------------------------------------------------------ @MT- 
@MI{@RI} @HA-----   @MT+ @HS------   through   @HE------                                 @MT- 
@IF {@RB} = {1} THEN
@MI{@RI} -------------------------------------------------------------------------------------------------------------
@EL
@MI{@RI} -------------------------------------------------------------------------------
@EI
@EI
> @VS1 := @TI           ; Assign category description
> @VN2 := {@VN2+@TA}
> @VN3 := {@VN3+1}
> @VN50 := {@VN50+1}
@IF @TT = "D" THEN
> @VN11 := {@VN11+@TA}  ; Accumulate total deposits
> @VN21 := {@VN21+1}    ; Accumulate number of deposits
@EI
@IF @TT = "I" THEN
> @VN12 := {@VN12+@TA}  ; Accumulate total interest earned
> @VN22 := {@VN22+1}    ; Accumulate number of interest earned
@EI
@IF @TT = "B" THEN
> @VN13 := {@VN13+@TA}  ; Accumulate total cash credits
> @VN23 := {@VN23+1}    ; Accumulate number of cash credits
@EI
@IF @TT = "+" THEN
> @VN14 := {@VN14+@TA}  ; Accumulate total split transactions (inflows)
> @VN24 := {@VN24+1}    ; Accumulate number of split transactions
@EI
@IF @TT = "C" THEN
> @VN15 := {@VN15+@TA}  ; Accumulate total checks
> @VN25 := {@VN25+1}    ; Accumulate number of checks
@EI
@IF @TT = "W" THEN
> @VN16 := {@VN16+@TA}  ; Accumulate total withdrawals
> @VN26 := {@VN26+1}    ; Accumulate number of withdrawals
@EI
@IF @TT = "H" THEN
> @VN17 := {@VN17+@TA}  ; Accumulate total bank charges
> @VN27 := {@VN27+1}    ; Accumulate number of bank charges
@EI
@IF @TT = "A" THEN
> @VN18 := {@VN18+@TA}  ; Accumulate total cash debits
> @VN28 := {@VN28+1}    ; Accumulate number of cash debits
@EI
@IF @TT = "-" THEN
> @VN19 := {@VN19+@TA}  ; Accumulate total split transactions (outflows)
> @VN29 := {@VN29+1}    ; Accumulate number of split transactions
@EI
@IF @RA = "CURRENT" THEN
@IF @RD = "SCREEN" THEN
@TT--  @TD------  @TP-------------------------  @TM-----------------  @TS @TA--------
@EL
@IF {@RB} = {1} THEN
@MI{@RI} @TT--  @TD------  @TP--------------------------------  @TM--------------------------------  @TS @TA--------
@EL
@MI{@RI} @TT--  @TD------  @TP-------------------------  @TM------------------  @TS @TA--------
@EI
@EI
@EI
@IF @RA  "CURRENT" THEN
@IF @RD = "SCREEN" THEN
@TO-----  @TT--  @TD------  @TP--------------------  @TM-------------  @TS @TA--------
@EL
@IF {@RB} = {1} THEN
@MI{@RI} @TO-----  @TT--  @TD------  @TP--------------------------------  @TM--------------------------------  @TS @TA--------
@EL
@MI{@RI} @TO-----  @TT--  @TD------  @TP--------------------  @TM----------- aaa @TS @TA--------
@EI
@EI
@EI
@A+1 
@IF @VS1  @TI      ; Check for category change
> @VN80:={@VN2/@VN3}
@IF @RD = "SCREEN"
────────────────────────────────────────────────────────────────────────────── 
TOTAL @VS1--------------------------  @VN2-------  @MD00 @MA4 COUNT:@VN3   @MD02 @MA11 AVG:@VN80------ 
 
@EL
> @VN50 := {@VN50+2}
@IF {@RB} = {1} THEN
@MI{@RI} TOTAL @VS1--------------------------  $@VN2-------             @MD00 @MA4 COUNT:@VN3       @MD02 @MA11 AVERAGE: $@VN80------ 
@EL
@MI{@RI} @PG TOTAL @VS1--------------------------   $@VN2------- @MD00 @MA4 COUNT:@VN3 @MD02 @MA11 AVG: $@VN80------ @PH 
@EI
 
@EI
> @VN2 := {0}
> @VN3 := {0}
@EI
@IF @RD  "SCREEN" THEN
@IF {@VN50} > {@RF} THEN
@PB ;
@UM"Ready to print next page."
> @VN82 := {1}
@EI
@EI
@EA
 
 
@IF @RD  "SCREEN" THEN
@IF {@RF-@VN50} < {19} THEN
@PB ;
@UM"Ready to print next page."
@EI
@EI
 
    @IF @RD = "SCREEN"
                             S  U  M  M  A  R  Y 
     ════════════════════╤═══════════╤═════════════════╤════════════════ 
     Transaction Type    │ No. Items │    Total Income │   Total Expense 
     ════════════════════╪═══════════╪═════════════════╪════════════════ 
     Deposits............│  @MD00 @MA5 (@VN21 )  │ @MA11 @MD02  $  @VN11------  │................ 
     Interest Earned.....│  @MD00 @MA5 (@VN22 )  │ @MA11 @MD02  $  @VN12------  │................ 
     Cash Credits........│  @MD00 @MA5 (@VN23 )  │ @MA11 @MD02  $  @VN13------  │................ 
     Splits (Income).....│  @MD00 @MA5 (@VN24 )  │ @MA11 @MD02  $  @VN14------  │................ 
     ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ┼ ─ ─ ─ ─ ─ ┼ ─ ─ ─ ─ ─ ─ ─ ─ ┼ ─ ─ ─ ─ ─ ─ ─ ─ 
     Checks..............│  @MD00 @MA5 (@VN25 )  │.................│ @MA11 @MD02  $  @VN15------ 
     Withdrawals.........│  @MD00 @MA5 (@VN26 )  │.................│ @MA11 @MD02  $  @VN16------ 
     Bank Charges........│  @MD00 @MA5 (@VN27 )  │.................│ @MA11 @MD02  $  @VN17------ 
     Cash Debits.........│  @MD00 @MA5 (@VN28 )  │.................│ @MA11 @MD02  $  @VN18------ 
     Splits (Expense)....│  @MD00 @MA5 (@VN29 )  │.................│ @MA11 @MD02  $  @VN19------ 
     ════════════════════╪═══════════╪═════════════════╪════════════════ 
     Grand Total.........│..@MD00 @MA5 (
> @VN80 := {@VN21+@VN22+@VN23+@VN24+@VN25+@VN26+@VN27+@VN28+@VN29}
@VN80 )  │ @MA11 @MD02  $
> @VN80 := {@VN11+@VN12+@VN13+@VN14}
  @VN80------  │  $
> @VN80 := {@VN15+@VN16+@VN17+@VN18+@VN19}
  @VN80------ 
     ────────────────────┴───────────┴─────────────────┴──────────────── 
    @EL
@IF {@RB} = {1} THEN
> @VN55 := {16}
@EL
> @VN55 := {6}
@EI
@MI{@RI+@VN55}                         S  U  M  M  A  R  Y 
@MI{@RI+@VN55} =================================================================== 
@MI{@RI+@VN55} Transaction Type    | No. Items |    Total Income |   Total Expense 
@MI{@RI+@VN55} ====================|===========|=================|================ 
@MI{@RI+@VN55} Deposits............|  @MD00 @MA5 (@VN21 )  | @MA11 @MD02  $  @VN11------  |................ 
@MI{@RI+@VN55} Interest Earned.....|  @MD00 @MA5 (@VN22 )  | @MA11 @MD02  $  @VN12------  |................ 
@MI{@RI+@VN55} Cash Credits........|  @MD00 @MA5 (@VN23 )  | @MA11 @MD02  $  @VN13------  |................ 
@MI{@RI+@VN55} Splits (Income).....|  @MD00 @MA5 (@VN24 )  | @MA11 @MD02  $  @VN14------  |................ 
@MI{@RI+@VN55} --------------------|-----------|-----------------|---------------- 
@MI{@RI+@VN55} Checks..............|  @MD00 @MA5 (@VN25 )  |.................| @MA11 @MD02  $  @VN15------ 
@MI{@RI+@VN55} Withdrawals.........|  @MD00 @MA5 (@VN26 )  |.................| @MA11 @MD02  $  @VN16------ 
@MI{@RI+@VN55} Bank Charges........|  @MD00 @MA5 (@VN27 )  |.................| @MA11 @MD02  $  @VN17------ 
@MI{@RI+@VN55} Cash Debits.........|  @MD00 @MA5 (@VN28 )  |.................| @MA11 @MD02  $  @VN18------ 
@MI{@RI+@VN55} Splits (Expense)....|  @MD00 @MA5 (@VN29 )  |.................| @MA11 @MD02  $  @VN19------ 
@MI{@RI+@VN55} ====================|===========|=================|================ 
@MI{@RI+@VN55} Grand Total.........|..@MD00 @MA5 (
> @VN80 := {@VN21+@VN22+@VN23+@VN24+@VN25+@VN26+@VN27+@VN28+@VN29}
@VN80 )  | @MA11 @MD02  $
> @VN80 := {@VN11+@VN12+@VN13+@VN14}
  @VN80------  |  $
> @VN80 := {@VN15+@VN16+@VN17+@VN18+@VN19}
  @VN80------ 
@MI{@RI+@VN55} ------------------------------------------------------------------- 
    @EI
 
@MS+
> @VN80 := {@VN11+@VN12+@VN13+@VN14+@VN15+@VN16+@VN17+@VN18+@VN19}
@IF @RD = "SCREEN" THEN
     Difference = (Income - Expense)....$  @VN80------ 
@EL
@MI{@RI+@VN55} Difference = (Income - Expense)....$  @VN80------ 
@EI